home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / smooth scroll.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  357b  |  14 lines
  1. 100 REM SMOOTH SCROLL DEMO 1
  2. 110 REM
  3. 120 REM COURBOIS SOFTWARE
  4. 130 REM
  5. 140 POKE53265,PEEK(53265)AND247            :REM NAAR 24 REGELMODE
  6. 150 PRINT"[147]";
  7. 160 POKE53265,(PEEK(53265)AND248)+7        :REM POSITIE 1E SCROLL
  8. 170 PRINT:PRINT"     HALLO DAAR SMOOTH[146] SCROLL.";
  9. 180 FORDP=6TO0STEP-1
  10. 190 POKE53265,(PEEK(53265)AND248)+DP       :REM VOLGENDE POSITIE
  11. 200 FORX=1TO50:NEXT
  12. 210 NEXTDP
  13. 220 GOTO160
  14.